home *** CD-ROM | disk | FTP | other *** search
/ The Atari Compendium / The Atari Compendium (Toad Computers) (1994).iso / files / umich / falcon / programm.ing / nt_dsp1.lzh / NT_DSP1.MSA / MATRIX / MATMUL1.ASM next >
Assembly Source File  |  1989-01-24  |  2KB  |  58 lines
  1. ;
  2. ; This program originally available on the Motorola DSP bulletin board.
  3. ; It is provided under a DISCLAMER OF WARRANTY available from
  4. ; Motorola DSP Operation, 6501 Wm. Cannon Drive W., Austin, Tx., 78735.
  5. ; 
  6. ; [1x3][3x3]=[1x3] Matrix Multiplication       
  7. ; 
  8. ; Last Update 04 Feb 87   Version 1.0
  9. ;
  10.         opt     cex
  11.         page    132,66,0,0
  12. ;
  13. ;       matrix multiply
  14. ;
  15. ;
  16.         org     x:0
  17. ;
  18. mat_a
  19.         dc        .4                    ;a(1,1)
  20.         dc        .3                    ;a(1,2)
  21.         dc        -.6                   ;a(1,3)
  22.  
  23.         org     y:0
  24. mat_b
  25.         dc        -.4                   ;b(1,1)
  26.         dc        .5                    ;b(2,1)
  27.         dc        .6                    ;b(3,1)
  28.         dc        .35                   ;b(1,2)
  29.         dc       -.3                    ;b(2,2)
  30.         dc        -.35                  ;b(3,2)
  31.         dc       .15                    ;b(1,3)
  32.         dc       .4                     ;b(2,3)
  33.         dc       .45                    ;b(3,3)
  34.  
  35. mat_x   ds      3
  36. ;
  37. ;
  38.         org     p:$100
  39. matmul  move    #mat_a,r0       ;point to A matrix
  40.         move    #mat_b,r4       ;point to B matrix
  41.         move    #2,m0           ;mod 3
  42.         move    #mat_x,r1       ;output X matrix
  43. ;
  44.         move            x:(r0)+,x0  y:(r4)+,y0
  45.         mpy     x0,y0,a  x:(r0)+,x0  y:(r4)+,y0
  46.         mac     x0,y0,a  x:(r0)+,x0  y:(r4)+,y0
  47.         macr    x0,y0,a  x:(r0)+,x0  y:(r4)+,y0
  48.         move    a,y:(r1)+
  49.         mpy     x0,y0,a  x:(r0)+,x0  y:(r4)+,y0
  50.         mac     x0,y0,a  x:(r0)+,x0  y:(r4)+,y0
  51.         macr    x0,y0,a  x:(r0)+,x0  y:(r4)+,y0
  52.         move    a,y:(r1)+
  53.         mpy     x0,y0,a  x:(r0)+,x0  y:(r4)+,y0
  54.         mac     x0,y0,a  x:(r0)+,x0  y:(r4)+,y0
  55.         macr    x0,y0,a  x:(r0)+,x0  y:(r4)+,y0
  56.         move    a,y:(r1)+
  57.         end
  58.